perm filename SUBIN[SCR,LCS] blob sn#458433 filedate 1979-07-15 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE
C00004 ENDMK
CāŠ—;
PRECEDE;
FUNC EXAMP.FUN[INS,MUS];
COMMON TOOT,CLAR;
*

REVRB 0 0 1;
P2 12;
END;

TOOT 0 10;
P2 RHY/16;			< quarter note, 2 eighths, half
P3 1 C4 E;
P4 .7;					< maximum amplitude
P5 F1;					< amplitude function
P6 F6;					< waveform ("SYNTH") function
P7 .05;					< percentage (0 ā†” 1) of reverberation
P17 SUBR 0;
P19 F4;
END;